# Read in the data
fish <- read_csv(here("data", "willamette_fish_passage.csv"))
# Wrangle the data
fish_ts <- fish %>% 
  clean_names() %>% 
  mutate(date = lubridate::mdy(date)) %>% # Convert to date 
  select(date, coho, jack_coho, steelhead) %>% # Select only for date and fish of interest
  replace_na(list(coho = 0, jack_coho = 0, steelhead = 0)) %>%
  pivot_longer(c(coho:steelhead),
               names_to = "species", 
               values_to = "count") %>% # Replace NA values with 0 
  as_tsibble(key = species, index = date) # Convert to tsibble

1 Overview

Salmon swim past Oregon Department of Fish and Wildlife's (ODFW) counting window at the Willamette Falls fishway. Photograph Credit: Eric Ollerenshaw, ODFW

Salmon swim past Oregon Department of Fish and Wildlife’s (ODFW) counting window at the Willamette Falls fishway. Photograph Credit: Eric Ollerenshaw, ODFW

This report details adult fish passage for Coho, Jack Coho, and Steelhead salmon at the Willamette Falls fish ladder on the Willamette River in Oregon from 2001-01-01 to 2010-12-31. Note that the Willamette Falls fish ladder was not operational on the following dates:

  • 2005-11-29 to 2005-12-01, 2005-12-06 to 2005-12-08, 2005-12-13 to 2005-12-14
  • 2008-08-26 to 2008-09-21
  • 2010-08-23 to 2010-08-27

Included is a time series of adult salmon passage, seasonplots of passage, and annual totals of passage for each species.

The data used in this report can be accessed from Columbia River DART (Data Access in Real Time). Columbia River DART is a data resource compiling information relating to the Columbia Basin salmon populations and environmental river conditions from federal, state, and tribal databases.

1.1 Original time series

1.2 Seasonplots

fish_month <- fish_ts %>% 
  group_by_key() %>% 
  index_by(yr_mo = ~yearmonth(.)) %>% # index by month to make seasonality clearer
  summarise(monthly_mean_count = mean(count, na.rm = TRUE)) %>% 
  mutate(species = recode(species, 
                          coho = "Coho",
                          jack_coho = "Jack Coho",
                          steelhead = "Steelhead"))

fish_month %>% 
  gg_season(y = monthly_mean_count)+
  labs(x = "Month",
       y = "Mean monthly count", 
       title = "Average monthly count of adult fish passage for Willamette fish ladder"
       )+
  theme_minimal()

1.3 Annual counts by species